(ftfont_shape): Return Lispy number.

diff --git a/src/ftfont.c b/src/ftfont.c
index 9fb50d3dba348ec41674cd50abf859ddd8fa07ab..2a72316b6a9a2f8963a13eabc7f0ceda57a2ccba 100644 (file)
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -1618,7 +1618,7 @@ ftfont_shape (lgstring)
   CHECK_FONT_GET_OBJECT (LGSTRING_FONT (lgstring), font);
   ftfont_info = (struct ftfont_info *) font;
   if (! ftfont_info->maybe_otf)
-    return 0;
+    return make_number (0);
   if (! ftfont_info->otf)
     {
       OTF *otf = OTF_open_ft_face (ftfont_info->ft_size->face);
@@ -1628,7 +1628,7 @@ ftfont_shape (lgstring)
          if (otf)
            OTF_close (otf);
          ftfont_info->maybe_otf = 0;
-         return 0;
+         return make_number (0);
        }
 
       ftfont_info->otf = otf;